Thema Datum  Von Nutzer Rating
Antwort
12.04.2017 13:10:08 Felix
****
NotSolved
12.04.2017 18:27:35 BigBen
NotSolved
13.04.2017 08:53:02 Felix
NotSolved
Blau In der Schleife drucken lassen | Mein Code spinnt rum
 13.04.2017 14:01:18 BigBen
NotSolved
13.04.2017 14:30:49 BigBen
NotSolved
13.04.2017 14:38:01 BigBen
NotSolved
13.04.2017 15:45:11 Felix
NotSolved
13.04.2017 17:31:47 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
13.04.2017 14:01:18		 Views:
620		 Rating:
     
Antwort:
  Ja
Thema:
In der Schleife drucken lassen | Mein Code spinnt rum

Hallo,

dieser VBA-Code Speichert die Serienbriefe in die entsprechenden Dateien im PDF und Word-Dokument. Bei Bedarf werden diese auch zusätzlich ausgedruckt:

Sub SavePrintAsPDFAndDoc()
    Dim i As Integer
    Dim drucken As Boolean
    Dim Path As String
    Dim sBrief As String
    Dim iRst As Integer
    drucken = True ' oder False
    Path = "L:\temp\Serienbriefe\Ausgabe\"
    For i = 1 To 5 ' 5 Exemplare Ausdrucken
        With ActiveDocument.MailMerge
            .DataSource.ActiveRecord = wdFirstRecord
            For iRst = 1 To .DataSource.RecordCount
                .DataSource.ActiveRecord = iRst
                
                .Destination = wdSendToNewDocument
                .SuppressBlankLines = True
                With .DataSource
                    .FirstRecord = .ActiveRecord
                    .LastRecord = .ActiveRecord
                    sBrief = Path & .DataFields("VBA").Value
                End With
                .Execute Pause:=False
                If drucken = vbYes Then
                    ActiveDocument.printOut
                End If
                If i = 1 Then ' Beim 1. Exemplar das Dokument speichern
                    ActiveDocument.SaveAs2 FileName:=sBrief & ".docx"
                    ActiveDocument.ExportAsFixedFormat OutputFileName:=sBrief & ".pdf", ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument
                End If
                ActiveDocument.Close False
            Next
        End With
    Next
End Sub

Im Code muss bei Bedarf der Pfad angepasst werden.

LG, BigBen

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.04.2017 13:10:08 Felix
****
NotSolved
12.04.2017 18:27:35 BigBen
NotSolved
13.04.2017 08:53:02 Felix
NotSolved
Blau In der Schleife drucken lassen | Mein Code spinnt rum
 13.04.2017 14:01:18 BigBen
NotSolved
13.04.2017 14:30:49 BigBen
NotSolved
13.04.2017 14:38:01 BigBen
NotSolved
13.04.2017 15:45:11 Felix
NotSolved
13.04.2017 17:31:47 BigBen
NotSolved